#REPLICATION DATA FOR: MAKE IT RAIN? RETROSPECTION AND THE ATTENTIVE ELECTORATE IN THE CONTEXT OF NATURAL DISASTERS

rm(list = ls())

data <- read.csv("presdata.csv")

pres.nodecs <- lm(inc.twpct ~ pres.vote.lag1 + pres.vote.lag2 + propertypercapl.6mo +  medincK   + as.factor(countyfips) + as.factor(year),data = data)
  
pres.decs <- lm(inc.twpct ~ pres.vote.lag1 + pres.vote.lag2 + propertypercapl.6mo +  disdecs.all.6mo +  medincK   + as.factor(countyfips) + as.factor(year),data = data)

pres.tds <-lm(inc.twpct ~ pres.vote.lag1 + pres.vote.lag2 + propertypercapl.6mo +  disdecs.all.6mo + turndowns.6mo + medincK + as.factor(countyfips) + as.factor(year),data = data)
